home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / recent2 / mailcheck.lha / mailcheck / Install next >
Text File  |  1997-06-15  |  4KB  |  155 lines
  1.  
  2. ;/*     $VER: MC_Install 1.3 (06.07.97)      */
  3. ;/*                                          */
  4. ;/*  This script is part of MailCheck v1.3   */
  5. ;/*    and may not be modified or copied     */
  6. ;/*  without the authors written permission  */
  7. ;/*                                          */
  8. ;/*   ©1997 DCS Software by Robert Wilson    */
  9.  
  10. failat 25
  11.  
  12. if not exists c:requestchoice 
  13.   echo "This installer requires C:RequestChoice"
  14.   wait 2
  15.   quit
  16. endif
  17.  
  18. if not exists c:requestfile
  19.   c:requestchoice >env:answer "Error" "This installer requires*nC:RequestFile!" "Sorry"
  20.   wait 2
  21.   quit
  22. endif
  23.  
  24. if exists s:user-startup
  25.   search s:user-startup ";BEGIN MailCheck" >nil:
  26.   if not warn 
  27.     c:requestchoice >env:answer "Error" "Existing installation found, please*nremove it and run this installer again!" "Sorry"
  28.     quit
  29.   endif
  30. else
  31.   c:requestchoice >env:answer "Error" "S:User-Startup not found!" "Hmmm"
  32.   quit
  33. endif
  34.  
  35. assign InstallerPath: "" >nil:
  36. if $rc eq 20 
  37.   c:requestchoice >env:answer "Fatal error" "This installer cannot handle spaces in path names!*nHopefully this will be fixed in the future...?" "Sorry :("
  38.   quit
  39. endif  
  40.  
  41. lab MIAMI
  42.  
  43. assign >nil: Miami: EXISTS
  44. if warn 
  45.   c:requestchoice >env:answer "MailCheck Version 1.3" "I cannot find an assign for Miami!*n*nShow me where it is..." "Okay"  
  46.   c:requestfile >env:miamipath TITLE="Location of Miami" NOICONS DRAWERSONLY
  47.   if $rc not eq 0
  48.     skip ASKQUIT1
  49.   else
  50.     assign Miami: $miamipath >nil: 
  51.     if $rc eq 20 
  52.       c:requestchoice >env:answer "Fatal error" "This installer cannot handle spaces in path names!*nHopefully this will be fixed in the future...?" "Sorry :("
  53.     quit
  54.     endif  
  55.   endif
  56. else
  57.   cd Miami:
  58.   cd >env:miamipath
  59. endif
  60.  
  61. lab MAILCHECK
  62.  
  63. cd Sys:
  64.  
  65. c:requestchoice >env:answer "MailCheck Version 1.3" "Please select destination directory for MailCheck*n*nIf not present, a directory will be created here." "Okay"  
  66. c:requestfile >env:mcparent TITLE="Location of MailCheck" NOICONS DRAWERSONLY
  67.  
  68. if $rc not eq 0
  69.   skip ASKQUIT2
  70. else
  71.   assign MailCheckParent: $mcparent >nil:
  72.   if $rc eq 20 
  73.     c:requestchoice >env:answer "Fatal error" "This installer cannot handle spaces in path names!*nHopefully this will be fixed in the future...?" "Sorry :("
  74.   quit
  75.   endif
  76.   cd MailCheckParent:
  77. endif
  78.  
  79. if not exists MailCheck
  80.   makedir MailCheck
  81. endif
  82.  
  83. cd MailCheck
  84.  
  85. if not exists C
  86.   makedir C
  87. endif
  88.  
  89. if not exists Docs
  90.   makedir Docs
  91. endif
  92.  
  93. cd >env:mailcheckpath
  94.  
  95. assign MailCheck: $mailcheckpath >nil:
  96. if $rc eq 20 
  97.   c:requestchoice >env:answer "Fatal error" "This installer cannot handle spaces in path names!*nHopefully this will be fixed in the future...?" "Sorry :("
  98.   quit
  99. endif  
  100.  
  101. copy InstallerPath:data/s/#?check s: quiet clone
  102. copy InstallerPath:data/#? MailCheck: all quiet clone
  103. copy InstallerPath:mailcheck.gui#? MailCheck:Docs quiet clone
  104. copy InstallerPath:ReadMe#? MailCheck: quiet clone
  105. copy c:wait MailCheck:C/ quiet clone
  106. copy InstallerPath:MailCheckDirIcon MailCheckParent:MailCheck.info 
  107. setenv MCStep 1
  108.  
  109. copy s:user-startup s:user-startup.old clone quiet
  110. echo "" >> s:user-startup
  111. echo ";BEGIN MailCheck" >> s:user-startup
  112. echo assign Miami: $miamipath >> s:user-startup
  113. echo assign MailCheck: $mailcheckpath >> s:user-startup
  114. echo setenv MCStep 1 >> s:user-startup
  115. echo ";END MailCheck" >> s:user-startup
  116. echo "" >> s:user-startup
  117.  
  118. skip END
  119.  
  120. lab ASKQUIT1
  121.  
  122. c:requestchoice >env:answer "MailCheck Version 1.3" "Do you want to exit installation?" "Yes" "No"
  123.  
  124. if $answer eq "1"
  125.   skip MESSAGE
  126. else
  127.   skip MIAMI back
  128. endif
  129.  
  130.  
  131. lab ASKQUIT2
  132.  
  133. c:requestchoice >env:answer "MailCheck Version 1.3" "Do you want to exit installation?" "Yes" "No"
  134.  
  135. if $answer eq "1"
  136.   skip MESSAGE
  137. else
  138.   skip MAILCHECK back
  139. endif
  140.  
  141. lab END
  142.  
  143. c:requestchoice >env:answer "MailCheck Version 1.3" "Installation complete!" "Thanks :)"
  144.  
  145. assign InstallerPath: dismount >nil:
  146. assign MailCheckParent: dismount >nil:
  147.  
  148. quit
  149.  
  150. lab MESSAGE
  151.  
  152. c:requestchoice >env:answer "MailCheck Version 1.3" "So be it, never mind :(" "Bye!"
  153.  
  154. quit
  155.